CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/myoh.dir/00005_clickEffectsRepeatedPippiSpecial.ls

Text File | 2001-09-05 | 558 b | 37 lines

property meSprite, myNum, meName

on beginSprite me
  meSprite = sprite(me.spriteNum)
  meSprite.static = 1
  meName = meSprite.member.name.char[1..5]
  myNum = 1
end

on mouseUp me
  if meSprite.playing = 0 then
    meSprite.member = member(meName & string(myNum))
    updateStage()
    meSprite.static = 0
    meSprite.play()
    myNum = random(3)
  end if
end

on setStatic me
  if meSprite.playing = 0 then
    meSprite.static = 1
  end if
end

on mouseEnter me
  cursor([500, 501])
end

on mouseLeave me
  cursor(0)
end

on endSprite me
  cursor(0)
end